home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D5.D64 / hi-res demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  78 lines
  1. 10 REM*********************************
  2. 20 REM*                               *
  3. 30 REM*  DEMO PROGRAM FOR HIRES       *
  4. 40 REM*        ROUTINES               *
  5. 50 REM*                               *
  6. 60 REM*********************************
  7. 70 REM
  8. 80 REM
  9. 90 IF A=0THEN A=1:LOAD "HIRES.MC",8,1
  10. 100 AD=49152
  11. 110 SH=AD:REM SET UP HIRES
  12. 120 TX=AD+3:REM TEXT RESTORE
  13. 130 CH=AD+6:REM CLEAR SCREEN
  14. 140 CC=AD+9:REM CLEAR COLOUR
  15. 150 PH=AD+12:REM PLOT HIRES
  16. 160 PC=AD+15:REM PLOT COLOUR
  17. 170 PB=AD+18:REM PLOT BOTH
  18. 172 LD=AD+21:REM PLOT LINE
  19. 174 HL=AD+24:REM HORIZ LINE
  20. 176 VL=AD+27:REM VERT LINE
  21. 178 DB=AD+30:REM BOX DRAW
  22. 180 XL=251:REM X LOW
  23. 190 XH=252:REM X HIGH
  24. 200 YL=253:REM Y COORD
  25. 202 X1=14:REM END X  LOW
  26. 204 X2=15:REM END X  HIGH
  27. 206 Y1=255:REM END Y
  28. 210 CB=2:REM COLOUR BYTE
  29. 220 PX=254:REM PLOT INDICATOR
  30. 230 REM
  31. 240 REM MENU
  32. 250 REM
  33. 260 PRINT "[147]"
  34. 270 PRINT "[158]          LINE DRAWING DEMO"
  35. 280 PRINT:PRINT TAB(10);"1.  RANDOM LINES"
  36. 290 PRINT:PRINT TAB(10);"2.  RANDOM BOXES"
  37. 300 PRINT:PRINT TAB(10);"3.  BOTH TOGETHER"
  38. 310 PRINT:PRINT TAB(10);"[158]ENTER OPTION"
  39. 312 PRINT:PRINT "NOTE: THIS PROGRAM IS ONLY INTENDED"
  40. 314 PRINT "AS AN ILLUSTRATION. IT MAY CRASH"
  41. 316 PRINT "OCCASIONALLY AS THE HI-RES ROUTINES"
  42. 318 PRINT "USE SOME OF THE SAME LOCATIONS AS BASIC":PRINT
  43. 320 GET I$:IF I$="" THEN 320
  44. 330 IF I$>"3" OR I$<"1" THEN 320
  45. 331 I=VAL(I$)
  46. 340 ON I GOSUB 1000,2000,3000
  47. 360 SYS TX:GOTO 260
  48. 900 REM
  49. 910 REMRANDOM  LINES
  50. 920 REM
  51. 1000 POKE PX,255:SYS SH
  52. 1010 GOSUB 5000:SYS LD
  53. 1020 GET I$:IF I$="" THEN 1010
  54. 1030 RETURN
  55. 1900 REM
  56. 1910 REM RANDOM BOXES
  57. 1920 REM
  58. 2000 POKE PX,255:POKE CB,67:SYS SH
  59. 2010 GOSUB 5000:SYS DB
  60. 2020 GET I$:IF I$="" THEN 2010
  61. 2030 RETURN
  62. 2090 REM
  63. 2100 REM DO BOTH
  64. 2110 REM
  65. 3000 POKE PX,255:POKE CB,67:SYS SH
  66. 3010 GOSUB 5000:SYS LD:GOSUB 5000:SYS DB
  67. 3020 GET I$:IF I$="" THEN 3010
  68. 3030 RETURN
  69. 4900 REM
  70. 4910 REM SET UP COORDS
  71. 4920 REM
  72. 5000 POKE PX,255:X=INT(RND(1)*319)
  73. 5010 POKE XL,X-INT(X/256)*256:POKE XH,INT(X/256)
  74. 5020 X=INT(RND(1)*319)
  75. 5030 POKE X1,X-INT(X/256)*256:POKE X2,INT(X/256)
  76. 5040 POKE YL,INT(RND(1)*199):POKE Y1,INT(RND(1)*199)
  77. 5050 RETURN
  78.